home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / borg.arc / TGRAF.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.5 KB  |  85 lines
  1. 10  FOR X=1 TO 80:LOCATE 14,X:PRINT CHR$(205):NEXT 'line14 seps.disp. from txt
  2. 20  LOCATE 14,1:PRINT CHR$(198):LOCATE 14,80:PRINT CHR$(181)
  3. 30  'print star background
  4. 40  FOR Z=2 TO 79
  5. 50  IF Z=40 THEN 120
  6. 60  S=RND(Z)
  7. 70  S=S*13
  8. 80  IF S<1 THEN S=1
  9. 90  IF S=8 THEN 120
  10. 100  LOCATE S,Z
  11. 110  PRINT CHR$(46)
  12. 120  NEXT Z
  13. 130  'draw outline of display area
  14. 140  LOCATE 1,1:PRINT CHR$(218)
  15. 150  FOR Z=2 TO 79:LOCATE 1,Z:PRINT CHR$(196):NEXT
  16. 160  LOCATE 1,80:PRINT CHR$(191)
  17. 170  FOR X=2 TO 13:LOCATE X,80:PRINT CHR$(179):NEXT
  18. 180  LOCATE 14,20:PRINT CHR$(209)
  19. 190  LOCATE 14,53:PRINT CHR$(209)
  20. 200  FOR X=2 TO 13:LOCATE X,1:PRINT CHR$(179):NEXT
  21. 210  LOCATE 1,35:PRINT"STARTREK"
  22. 220  GOSUB 400:GOSUB 700
  23. 225  CHAIN"b:trek.bas",18
  24. 230  END
  25. 240  'use this as sub for firing at klingon
  26. 250  FOR Y=1 TO 13
  27. 260  LOCATE Y,40
  28. 270  PRINT CHR$(197)
  29. 280  NEXT Y
  30. 290  FOR X=1 TO 80
  31. 300  LOCATE 7,X
  32. 310  PRINT CHR$(194)
  33. 320  NEXT X
  34. 330  'use this as sub for plotting klingon
  35. 340  LOCATE 9,60
  36. 350  PRINT CHR$(205)
  37. 360  LOCATE 9,61
  38. 370  PRINT CHR$(233)
  39. 380  LOCATE 9,62
  40. 390  PRINT CHR$(205)
  41. 400  LOCATE 15,1  'DATA FOR KLINGON COURSE
  42. 410  PRINT CHR$(179)
  43. 420  LOCATE 15,20
  44. 430  PRINT CHR$(179)
  45. 440  LOCATE 15,53
  46. 450  PRINT CHR$(179)
  47. 460  LOCATE 15,80
  48. 470  PRINT CHR$(179)
  49. 480  FOR X=2 TO 19
  50. 490  LOCATE 16,X
  51. 500  PRINT CHR$(196)
  52. 510  NEXT X
  53. 520  FOR X=21 TO 24
  54. 530  LOCATE 16,X
  55. 540  PRINT CHR$(196)
  56. 550  NEXT X
  57. 552  FOR X=26 TO 52:LOCATE 16,X:PRINT CHR$(196):NEXT X
  58. 560  FOR X=54 TO 79
  59. 570  LOCATE 16,X
  60. 580  PRINT CHR$(196)
  61. 590  NEXT X
  62. 600  LOCATE 16,1
  63. 610  PRINT CHR$(195)
  64. 620  LOCATE 16,20
  65. 630  PRINT CHR$(193)
  66. 640  LOCATE 16,53
  67. 650  PRINT CHR$(197)
  68. 660  LOCATE 16,80
  69. 670  PRINT CHR$(180)
  70. 680  RETURN
  71. 700  'enterprise course and speed status subroutine
  72. 705  LOCATE 16,25:PRINT CHR$(194)
  73. 710  LOCATE 17,1:PRINT CHR$(179)
  74. 715  LOCATE 17,25:PRINT CHR$(179)
  75. 720  LOCATE 17,80:PRINT CHR$(179)
  76. 725  LOCATE 18,1:PRINT CHR$(192)
  77. 730  LOCATE 18,25:PRINT CHR$(193)
  78. 735  LOCATE 18,80:PRINT CHR$(217)
  79. 737  LOCATE 17,53:PRINT CHR$(179)
  80. 739  LOCATE 18,53:PRINT CHR$(193)
  81. 740  FOR X=2 TO 24:LOCATE 18,X:PRINT CHR$(196):NEXT
  82. 745  FOR X=26 TO 52:LOCATE 18,X:PRINT CHR$(196):NEXT
  83. 747  FOR X=54 TO 79:LOCATE 18,X:PRINT CHR$(196):NEXT
  84. 750  RETURN
  85.